Installation

Systemvorraussetzung

Folgende Kombinationen haben sich als lauffähig erwiesen:

NT4 ServicePack 6         mit InternetExplorer 5.5
Windows 2000 SP4          mit InternetExplorer 6.0

Das Komma der Zehnertastatur auf Punkt schalten und zurück.

komma2dot.reg

REGEDIT4

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,34,00,53,00,00,00,00,00

back_komma2dot.reg

REGEDIT4

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
""

Installation mit TatLue1-0.EXE (8MByte)

Installation BKU

Problemfall (Alle Dateien kopieren)

Fehlende OCX/DLL ermitteln und registrieren

LOG --- BKU3-Rechner
Datum/Zeit: 07.10.2003/15:18

Betriebssystem: Windows _____ (V5.0-2)
Windows System Verzeichnis: C:\WINNT\System32\

untersuche: MSComDlg.CommonDialog
  *** Fehler: Klasse nicht gefunden

untersuche: MSCommLib.MSComm
  *** Fehler: Klasse nicht gefunden

untersuche: MSDBGrid.DBGrid
  *** Fehler: Klasse nicht gefunden

untersuche: MSDBCtls.DBList
  *** Fehler: Klasse nicht gefunden

untersuche: MSFlexGridLib.MSFlexGrid
  CLSID: {6262D3A0-531B-11CF-91F6-C2863C385E30}
  Dateiname: C:\WINNT\System32\Msflxgrd.ocx
  *** Fehler: Datei nicht vorhanden
  Microsoft FlexGrid Control, version 6.0;  Version 1.0
  *** Fehler: CreateObject mißlingt. Fehler 429
   ActiveX component can't create object

untersuche: DAO.DBEngine.35
  CLSID: {00000010-0000-0010-8000-00AA006D2EA4}
  Dateiname: C:\Programme\Gemeinsame Dateien\microsoft shared\dao\DAO350.DLL
  Datei vorhanden, Dateiangaben: 01.06.1998 01:00:00;  618'496 Bytes
  DAO.DBEngine.35;  keine Version
  Objektanbindung erfolgreich.

untersuche: MSComctl.Ocx
  Datei 'C:\WINNT\System32\MSComctl.Ocx' vorhanden
  Dateiangaben: 22.05.2000 16:58:10;  1'066'176 Bytes
  Shared DLLs Eintrag gefunden: 2

untersuche: RICHTX32.ocx
  *** Datei 'C:\WINNT\System32\RICHTX32.ocx' nicht vorhanden
  *** Shared DLLs Eintrag nicht gefunden

untersuche: StdOle2.tlb
  Datei 'C:\WINNT\System32\StdOle2.tlb' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  16'896 Bytes
  Shared DLLs Eintrag gefunden: 4

untersuche: OleAut32.dll
  Datei 'C:\WINNT\System32\OleAut32.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  626'960 Bytes
  Shared DLLs Eintrag gefunden: 4

untersuche: OlePro32.dll
  Datei 'C:\WINNT\System32\OlePro32.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  164'112 Bytes
  Shared DLLs Eintrag gefunden: 4

untersuche: AsycFilt.dll
  Datei 'C:\WINNT\System32\AsycFilt.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  143'632 Bytes
  Shared DLLs Eintrag gefunden: 3

untersuche: Ctl3d32.dll
  Datei 'C:\WINNT\System32\Ctl3d32.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  27'136 Bytes
  *** Shared DLLs Eintrag nicht gefunden

untersuche: ComCat.dll
  Datei 'C:\WINNT\System32\ComCat.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  3'856 Bytes
  Shared DLLs Eintrag gefunden: 4

untersuche: VB5DB.dll
  *** Datei 'C:\WINNT\System32\VB5DB.dll' nicht vorhanden
  *** Shared DLLs Eintrag nicht gefunden

untersuche: Scrrun.dll
  Datei 'C:\WINNT\System32\Scrrun.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  147'512 Bytes
  *** Shared DLLs Eintrag nicht gefunden

untersuche: MSVBVM50.dll
  Datei 'C:\WINNT\System32\MSVBVM50.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  1'355'776 Bytes
  kein Shared DLLs Eintrag

untersuche: ODBCJt32.dll
  Datei 'C:\WINNT\System32\ODBCJt32.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  270'608 Bytes
  kein Shared DLLs Eintrag

untersuche: MSRD2x35.dll
  Datei 'C:\WINNT\System32\MSRD2x35.dll' vorhanden
  Dateiangaben: 26.04.2000 13:34:50;  262'144 Bytes
  kein Shared DLLs Eintrag

untersuche: Msjter35.dll
  Datei 'C:\WINNT\System32\Msjter35.dll' vorhanden
  Dateiangaben: 26.04.2000 13:34:56;  24'848 Bytes
  kein Shared DLLs Eintrag

untersuche: Msvcrt40.dll
  Datei 'C:\WINNT\System32\Msvcrt40.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  65'024 Bytes
  kein Shared DLLs Eintrag

untersuche: Msjet35.dll
  Datei 'C:\WINNT\System32\Msjet35.dll' vorhanden
  Dateiangaben: 26.04.2000 13:34:48;  1'050'896 Bytes
  kein Shared DLLs Eintrag

untersuche: Vbajet32.dll
  Datei 'C:\WINNT\System32\Vbajet32.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  30'992 Bytes
  kein Shared DLLs Eintrag

untersuche: Msrepl35.dll
  Datei 'C:\WINNT\System32\Msrepl35.dll' vorhanden
  Dateiangaben: 26.04.2000 13:34:56;  415'504 Bytes
  kein Shared DLLs Eintrag

untersuche: Odbcji32.dll
  Datei 'C:\WINNT\System32\Odbcji32.dll' vorhanden
  Dateiangaben: 08.05.2001 13:00:00;  57'616 Bytes
  kein Shared DLLs Eintrag

untersuche: Odbctl32.dll
  *** Datei 'C:\WINNT\System32\Odbctl32.dll' nicht vorhanden
  kein Shared DLLs Eintrag

untersuche: OIK32.ocx
  *** Datei 'C:\WINNT\System32\OIK32.ocx' nicht vorhanden
  kein Shared DLLs Eintrag

Anzahl Fehler: 14
Fertig

z.B.: REGSVR32 OIK32.ocx

Ini-Datei

• WinLue/Pruef/Edit %WINDOWS%WinlueLt.ini
• Region %WINDOWS%WinLue.ini
• Tatlue %MAINDIR%Tatlue.ini

[Start]
SQL=SELECT LUE.* FROM LUE ORDER by Lue.STRECKE,Lue.RICHT_KZ,Lue.KM
TATDB=C:\ADE\QuellWin\WINLUE\DATEN\Test.mdb
SPro=C:\ADE\QuellWin\WINLUE\0.tpS
SProR=C:\ADE\QuellWin\WINLUE\0.tpS
Raster=True
Kinematik=False
Kopf1=DB Netz AG Zentrale
Kopf2=NID1 Infrastrukturdatenmanagement
Kopf3=Im Galluspark 23, 60326 Frankfurt/M
Schranke=0
Mehrfachmarkieren=0
AbHöhe=0
Seit=2.5
SQLKanten=1700Test.KAN
[ShowDruck]
Left=210
Top=90
Width=14565
Height=8985
[ShowSql]
Left=2475
Top=1230
[Ladung]
SQL=SELECT LUE.* FROM LUE ORDER by Lue.STRECKE,Lue.RICHT_KZ,Lue.KM
[Pfade]
InpHybrid=\
Hybrid1=C:\ADE\QuellWin\WINLUE\HYBRID\
OutPut=C:\ADE\QuellWin\WINLUE\DATEN\
InPut=C:\ADE\QuellWin\WINLUE\Daten\
Bahnst=C:\ADE\QuellWin\WINLUE\
[Darstellung]
PicZoom=100
[Engstellen-Flag]
Bereich=0
Seit=0
Hoehe=0
[ShowErw]
Left=0
Top=0

übersicht Lue

Installed Files

 OCX/DLL 
%SYS32%\Mscomctl.ocx
Version 6.00.8498 Microsoft COMCTL
%SYS32%\DBGrid32.ocx
Version 5.01.4525 Microsoft DBGrid32
%SYS32%\DBGrdDE.dll
Version 1.0.0126 Apex Software DBGRID32
%SYS32%\RichTx32.ocx
Version 6.00.8169 Microsoft RichText
%SYS32%\RichEd32.dll
Version 4.00.993.4 Microsoft® Windows(TM) Operating System
%SYS32%\RchTxDE.dll
Version 6.00.8163 Microsoft RichText
%SYS32%\MsFlxGrd.ocx
Version 6.00.8418 Microsoft FlexGrid Control
%SYS32%\FlxGdDE.dll
Version 6.00.8163 Microsoft FlexTabelle-Steuerelement (FlexGrid)
%SYS32%\SCRRUN.DLL
Version 5.1.0.5010 Microsoft(r) Script Runtime
%MAINDIR%\OIK32.OCX
Version 3.00.12 OLYMPUS Software Europe GmbH ImageKnife/OCX OLE Control Module
%SYS32%\VB5DE.DLL
Version String=05.00.4319 (SP2) Microsoft Visual Basic Environment
%SYS32%\SHLWAPI.DLL
Version String=5.50.4134.600 Microsoft Windows (R) 2000
%SYS32%\MSI.DLL
Version String=1.10.1029.1 Microsoft Corporation Windows Installer

 VB5            
FILE              VERSION        SIZE (bytes)
---------------------------------------------
MSVBVM50.DLL      5.00.4319      1,347,344
OLEAUT32.DLL      2.20.4118        492,304
OLEPRO32.DLL       5.0.4118        114,960
STDOLE2.TLB       2.20.4118         16,896
ASYCFILT.DLL      2.20.4118        118,544
COMCAT.DLL           4.71           22,288
CTL3D32.DLL       2.31.000          27,136
COMDLG32.OCX      5.01.4319        129,808

 Datenbanktreiber 
%MS_SHARED%\DAO350.DLL
%SYS32%\Msjter35.dll
%SYS32%\Msvcrt40.dll
%SYS32%\Msjet35.dll
%SYS32%\Vbajet32.dll
%SYS32%\Vb5db.dll
%SYS32%\Msrd2x35.dll
%SYS32%\Msrepl35.dll
%SYS32%\Odbcjt32.dll
%SYS32%\Odbcji32.dll
%SYS32%\Odbctl32.dll

Formen + Module

 Formen 
frmsollpro.frm
About.frm
FrmSpalte.frm
FrmDruck.frm
SQL.frm
TH1.frm
ErgTH1.frm
Sammel.frm
frmeng.frm
TH4.frm
frmBreit.frm
frmpic.frm
FrmMiniTra.frm
frmStatistik.frm
FrmKante0.frm
FrmFahrwLue.frm
FrmProof.frm
FrmStrParam.frm
frmmehrf.frm
FrmRegion.frm
fKantenkm.frm
FrmKanten.frm
frmDienst.frm
fAdeInfo.frm
FrmProofHybrid.frm
frmShowSA10.frm
FrmShowSA60.frm
FrmShowPic2.frm
frmShowDruck.frm
frmPreview.frm
frmShowPic.frm
DBWahlRegion.frm
frmKinematik.frm
frmSql.frm
FrmEinst.frm
FrmEingl.frm
Frmhand.frm
fMDIParser.frm
fADEView.frm
fMDIcopy.frm
fMDIInfo.frm
fMDIsync.frm
fMDIEdit.frm
FrmDS458.frm
frmPicVerl.frm
frmPicBahn.frm
frmMain.frm
frmKantenStr.frm
FrmDS458Ladung.frm
Frm2Cargo.frm
 Module 
Fahrzeug.bas
Kons.bas
lue.bas
db_mini.bas
lue_def.bas
SUB_IO.BAS
win_lue.bas
Multout.bas
PARSER.BAS
mADESyncro.bas
mDS458.bas
..\Allg\Dialog.bas
gabarit2.bas
Gabarit.bas

Programm packen

UPX is an advanced executable file compressor. UPX will typically
reduce the file size of programs and DLLs by around 50%-70%, thus
reducing disk space, network load times, download times and
other distribution and storage costs.

Programs and libraries compressed by UPX are completely self-contained
and run exactly as before, with no runtime or memory penalty for most
of the supported formats.

UPX supports a number of different executable formats, including
Windows 95/98/ME/NT/2000/XP programs and DLLs, DOS programs,
and Linux executables.

UPX is free software distributed under the term of the GNU General
Public License. Full source code is available.

UPX may be distributed and used freely, even with commercial applications.
See the UPX License Agreement for details.

Netzlaufwerk verbinden

Dim WSHNetwork, share, mountpoint, params

Set WSHNetwork =  WScript.CreateObject("WScript.Network")

Set params = wscript.arguments

If params.Count = 2 Then
  mountpoint = params.item(0)
  share = params.item(1)
Else
  if params.count = 0 Then
    mountpoint = InputBox("auf welches Laufwerk soll " & "gemapt werden (f:)? ")
  If mountpoint = "" Then
    WScript.Quit(1)
  End If

  share = InputBox("Name der Freigabe: ")

  If share = "" Then
    WScript.Quit(1)
  End If
  else
    wscript.echo "hilfe anzeigen"
    WScript.Quit(1)
  end if
End If

WSHNetwork.MapNetworkDrive mountpoint, share
Wscript.echo "Netzlaufwerk "

network.vbs

Betriebssystemaufruf mit VisualBasic

Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType As Long) As Long
Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType As Long) As Long

Function NetzlaufwerkAktivieren(Frm As Form)
  NetzlaufwerkAktivieren = WNetConnectionDialog(Frm.hwnd, 1)
End Function

Function NetzlaufwerkDeaktivieren(Frm As Form)
  NetzlaufwerkDeaktivieren = WNetDisconnectDialog(Frm.hwnd, 1)
End Function